Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/shared.dir/07002_Utilities.ls

Text File | 1996-04-18 | 5.8 KB | 240 lines

global gSICDPath, gSICurrMovie

on fileExists aFile
  set vFile to FileIO(mnew, "Read", aFile)
  if objectp(vFile) then
    vFile(mdispose)
    return 1
  else
    return 0
  end if
end

on stripCRLF aString
  repeat with vI = 1 to length(aString)
    set vCurrChar to char vI of aString
    if (vCurrChar = numToChar(10)) or (vCurrChar = numToChar(13)) then
      delete char vI of aString
    end if
  end repeat
  return aString
end

on StripChars aString, aStripChars
  repeat with vI = 1 to length(aString)
    set vCurrChar to char vI of aString
    set vStripIt to 0
    repeat with vJ = 1 to length(aStripChars)
      if vCurrChar = char vJ of aStripChars then
        set vStripIt to 1
        exit repeat
      end if
    end repeat
    if vStripIt then
      delete char vI of aString
    end if
  end repeat
  return aString
end

on stripChars2 aString, aStripChars
  set vI to 1
  repeat while vI <= length(aString)
    set vCurrChar to char vI of aString
    set vStripIt to 0
    repeat with vJ = 1 to length(aStripChars)
      if vCurrChar = char vJ of aStripChars then
        set vStripIt to 1
        exit repeat
      end if
    end repeat
    put vI && aString && length(aString)
    if vStripIt then
      delete char vI of aString
      next repeat
    end if
    set vI to vI + 1
  end repeat
  return aString
end

on SetCursor aCursor
  if aCursor = #none then
    cursor(200)
  else
    if aCursor = #normal then
      cursor(-1)
    else
      if aCursor = #wait then
        cursor(4)
      else
        if aCursor = #updown then
          cursor([the number of cast "UD_CURSOR", the number of cast "UD_MASK"])
        else
          if aCursor = #leftright then
            cursor([the number of cast "LR_CURSOR", the number of cast "LR_MASK"])
          else
            if aCursor = #hand then
              cursor([the number of cast "HAND_CURSOR", the number of cast "HAND_MASK"])
            end if
          end if
        end if
      end if
    end if
  end if
end

on LaunchHelp aContextID
  global gSISystem, gSICDPath, gSIUtils, gSIWinHelp
  puppetSound(0)
  if voidp(aContextID) then
    set vContextID to -1
    if gSICurrMovie = "hf" then
      set vContextID to 148
    else
      if gSICurrMovie = "iv" then
        set vContextID to 149
      else
        if gSICurrMovie = "opt" then
          set vContextID to 162
        else
          if gSICurrMovie = "sd" then
            set vContextID to 47
          else
            if gSICurrMovie = "ma" then
              set vContextID to 8
            else
              if gSICurrMovie = "th" then
                set vContextID to 147
              else
                if gSICurrMovie = "tr" then
                  set vContextID to 44
                else
                  if gSICurrMovie = "wd" then
                    set vContextID to 49
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  else
    set vContextID to aContextID
  end if
  if gSISystem = "WIN" then
    set vHWnd to gSIUtils(mGetNamedWindowHdl, "Stage")
    if vContextID = -1 then
      gSIWinHelp(mCall, vHWnd, gSICDPath & "sihelp.hlp", 3, 0)
    else
      gSIWinHelp(mCall, vHWnd, gSICDPath & "sihelp.hlp", 1, vContextID)
    end if
  else
    if gSISystem = "MAC" then
      open(gSICDPath & "sihelp.hlp", "Microsoft Help")
    end if
  end if
end

on GetVolume
  return integer(the soundLevel / 7.0 * 10)
end

on SetVolume aVol
  if aVol > 10 then
    set aVol to 10
  end if
  if aVol < 0 then
    set aVol to 0
  end if
  set aVol to integer(7.0 * (integer(aVol) * 0.10000000000000001))
  set the soundLevel to aVol
end

on LaunchOptions
  global gMAflip, MAflavor, MAmenuList, gMAmenu, gMALev, gTHRefresh, gWDRefresh
  SetCursor(#wait)
  puppetSound(0)
  set the fileName of window "opt" to gSICDPath & "opt"
  set the visible of window "opt" to 0
  set the windowType of window "opt" to 2
  set the modal of window "opt" to 1
  set vRect to the rect of window "opt"
  set vLeft to the stageLeft + 320 - (getAt(vRect, 3) / 2)
  set vRight to vLeft + getAt(vRect, 3)
  set vTop to the stageTop + 240 - (getAt(vRect, 4) / 2)
  set vBottom to vTop + getAt(vRect, 4)
  set the rect of window "opt" to rect(vLeft, vTop, vRight, vBottom)
  open(window "opt")
  if gSICurrMovie = "th" then
    set gTHRefresh to 1
  else
    if gSICurrMovie = "wd" then
      set gWDRefresh to 1
    end if
  end if
  if gSICurrMovie = "ma" then
    set gMAflip to value(HSStateGet("opt", "MAFlip"))
    if gMAflip = 1 then
      set MAflavor to getAt(MAmenuList, 2)
      set gMAmenu to the number of cast string(getAt(MAflavor, gMALev))
    end if
    if gMAflip = 0 then
      set MAflavor to getAt(MAmenuList, 4)
      set gMAmenu to the number of cast string(getAt(MAflavor, gMALev))
    end if
  end if
  SetCursor(#normal)
end

on updateAssetDB aDBCast
  if not integerp(aDBCast) then
    set aDBCast to the number of cast aDBCast
  end if
  set vDB to the text of cast aDBCast
  set vMax to the number of lines in vDB
  set the itemDelimiter to ","
  repeat with vI = 1 to vMax
    set vName to item 1 of line vI of vDB
    put the number of cast vName into item 2 of line vI of vDB
  end repeat
  set the text of cast aDBCast to vDB
end

on HideAllSprites
  repeat with vI = 1 to 48
    set the visible of sprite vI to 0
  end repeat
  updateStage()
end

on ShowAllSprites
  repeat with vI = 1 to 48
    set the visible of sprite vI to 1
  end repeat
  updateStage()
end

on StartBufferingEvents
  global gSISystem, gSIEventQ, gSIFlush
  if gSISystem = "WIN" then
    if gSIEventQ(mBufferStatus) = 0 then
      gSIEventQ(mBufferEvents)
    end if
  end if
end

on EndBufferingEvents
  global gSISystem, gSIEventQ, gSIFlush
  if gSISystem = "WIN" then
    if gSIEventQ(mBufferStatus) = 1 then
      gSIEventQ(mFlushEvents)
    end if
  else
    if gSISystem = "MAC" then
      gSIFlush(mFlush)
    end if
  end if
end